% TexturesDict - v1 Copyright 1991 Silicon Beach Software, inc.
userdict begin /TexturesDict 70 dict def
TexturesDict end begin
/TexturesDict_version 1 def
/a{bind def}bind def/b{exch def}a/i{/colorimage where}a/c{i dup{exch pop}if}a
/nulld{counttomark{null def}repeat pop}a mark/f/g/h/j/k/l/m/n/o/p/q/r/s/t/w/x/z/B/C/D/E/F/G nulld
/d{5 index 4 index gt 8 index 3 index lt 6 index 5 index gt 9 index 4 index lt and and and[10 2 roll cleartomark}a
/fillpath{userdict/TexturesDict get begin tp{aload pop 1 1 4 index{gsave pop 3 index
aload pop translate tr aload pop{clippath}stopped{-10000 dup dup dup}{pathbbox}ifelse d{fsa{exec}forall}if 3 index aload
pop 2 index add exch 3 index add exch 5 index astore pop grestore}for 4{pop}repeat}forall end}a
/e{systemdict/vmreclaim known{1 vmreclaim}if vmstatus exch sub exch pop exch 10000 add lt{stop}if}a
/defineimagearray{userdict/TexturesDict get begin{{readstring}}{{readhexstring}}ifelse/x b
/f b/g f{8}{exch}ifelse def/h b/j b/k j f{5 mul}{g 1 eq{8 div ceiling}if}ifelse round cvi def
/z c def/B f{z{.8}{.2}ifelse}{1}ifelse def f{i{systemdict ne{/l j string def/m j string def
/n j string def/o j string def}if}if}if f{/C j 4 mul round cvi def/D C string def/E j round cvi def
/F E string def}if/p k h mul round cvi def p B mul e/q 30000 B div k div floor k mul round cvi def
/r p q div ceiling cvi array def/s 0 def{/t p q le{p}{q}ifelse def r s f{/G 0 def t B mul round cvi string
t k div round cvi{z{dup G currentfile D x pop putinterval/G G C add def currentfile F x pop pop}
{currentfile D x pop pop dup G currentfile F x pop putinterval/G G E add def}ifelse}repeat
}{currentfile t string x pop}ifelse put/s s 1 add def/p p t sub def p 0 le{exit}if}loop
end}a/u{r s get/s s 1 add def}a/v{r s get w j getinterval/w w j add def}a/A{r s get length w le
{/s s 1 add def/w 0 def}if}a/imageit{userdict/TexturesDict get begin/s 0 def/w 0 def f
{c{i pop systemdict eq{{v}{v}{v}{v A}}{{v l copy}{v m copy}{v n copy}{v o copy A}}ifelse
true 4 colorimage}{{u}image}ifelse}{{u}image}ifelse end}a/settexturepat{8 dict dup begin
/PatternType 1 def/PaintType 1 def/TilingType 1 def/BBox tr def/XStep BBox 2 get BBox 0 get
sub def/YStep BBox 3 get BBox 1 get sub def/PaintProc{pop save fsa{exec}forall restore}def end matrix
gsave tp 0 get 0 get aload pop translate makepattern grestore setpattern}a/gofillit{systemdict
/makepattern known{settexturepat{eofill}{fill}ifelse}{{eoclip}{clip}ifelse fillpath}ifelse}a end